#!/usr/bin/perl

@field=([],[]);
#заполняем массив точками
for($i=0; $i<10; $i++){
	for($j=0; $j<10; $j++){
		$field[$i][$j]=" . ";
	}
}
#работаем с каждой четверкой цифр (1234)
foreach $coords(@ARGV){
#получаем координаты начала и конца корабля
	$xf=substr($coords, 0, 1);
	$yf=substr($coords, 1, 1);
	$xt=substr($coords, 2, 1);
	$yt=substr($coords, 3, 1);
#проверки на правильность введенных данных
	if(($xf!=$xt)&&($yf!=$yt)){
		print "fail: incorrect coords\n";
		exit(0);
	}
	if((($xt-$xf)>3)||(($yt-$yf)>3)){
		print "fail: incorrect size of the ship\n";
		exit(0);			
	}
#"рисуем" корабль
	for($i=$xf; $i<=$xt; $i++){
		for($j=$yf; $j<=$yt; $j++){
			if($field[$i][$j] eq "[@]"){
				print "fail: collision between ships\n";
				exit(0);
				}
			$field[$i][$j]="[@]";
		}
	}
}		
#выводим на экран наш готовый массив
print "\n   0  1  2  3  4  5  6  7  8  9\n";
for($i=0; $i<10; $i++){
	print "$i ";
	for($j=0; $j<10; $j++){
		print "$field[$i][$j]";
	}
	print "\n";
}




#BATTLESHIP
